home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / faq / kjvcbibl.lha / cbible / rexx / jump2new.thnkr < prev    next >
Text File  |  1992-05-31  |  340b  |  19 lines
  1. /* open 2 new windows to anchor statement */
  2. options results
  3. trace off
  4. address 'Thinker'
  5. get filename
  6. fn = result
  7. 'window id '
  8. wid = result
  9. get blocknumber
  10. bn = result
  11. window open '0,100,640,100'
  12. jump origin fn
  13. jump label first  '0' || bn || 'b'
  14. window open '0,0,625,132'
  15. jump origin fn
  16. jump label first  '0' || bn || 'b'
  17. window close wid
  18.  
  19.